home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 116
/
Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64
/
tennis 2
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
8KB
|
185 lines
10 rem tennis teil 2
12 rem
14 rem
16 rem
18 rem
20 rem
22 rem
35 v=53248:si=54272:cs=58732:a$=" 0153040 v":sa=1:au=1:dimmu(26,2)
40 print"[147]":poke214,10:syscs:print" bitte warten sie einen augenblick bis "
45 print" alle daten eingelesen worden sind ":pokev+21,0
50 rem
55 rem
60 rem
70 fora=28672to28692:pokea,0:next
80 fora=0to64*7-1:readb:poke2048+a,b:next
95 fora=24576to25609:readb:pokea,b:next
100 poke2040,32:poke2041,34:poke2042,36:poke2043,37:poke2044,38
105 pokev+37,7:pokev+38,0:pokev+39,2:pokev+40,6:pokev+41,9:pokev+42,9
110 pokev+23,3:pokev+28,3:pokev+43,7:poke28674,1:poke28675,0:poke28672,8
115 poke28673,8:poke28683,0
385 rem
390 rem
395 rem
400 pokev+16,0:print"[147]";:pokev+32,5:pokev+33,5
405 pokev+1,60:pokev+3,60:pokev+5,60:pokev+7,60:pokev,82:pokev+4,91
410 pokev+2,255:pokev+6,247:pokev+21,15
415 pokesi+24,15:pokesi+5,0:pokesi+6,240:pokesi+4,129:fora=0to87:print""
420 printtab(12)"[162][162][187][162][162][172][187][172][172][187][172][172] [162][187]"
425 printtab(12)" [161] [188][146][162][161][161][161][161][161][161][161][146][188][162][187]"
430 printtab(12)" [161] [188][146][162][161][146] [161][146] [161][146] [162][191]":pokesi+1,100-a:poke646,a:next
435 pokesi+4,0:input"[144]name spieler 1";na$(1):input"name spieler 2";na$(2)
440 na$(1)=chr$(18)+na$(1):na$(2)=chr$(18)+na$(2)
445 print"sie koennen zwischen 3 schwierigkeits- graden waehlen"
450 print"1) anfaenger":print"2) fortgeschrittener":print"3) profi"
460 getin$:ifin$<"1"orin$>"3"thengoto460
465 poke24721,(53-asc(in$))*2+1
470 print"viel glueck...das match beginnt !"
475 pokesi+5,5:pokesi+6,0:pokesi+24,15:pokev+21,0
500 print"[147]";
510 fora=0to4:print"[144] ";:next:gosub1500
550 poke211,0:poke214,7:syscs:poke646,1
555 print"[146] [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][186][204][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185] "
560 print" [165] [165] [170][180] [167] [167] "
565 print" [167] [165] [170][180] [167] [165] "
570 print" [200] [167] [170][180] [165] [165] "
575 print" [199] [167] [170][180] [165] [199] "
580 print" [165] [167] [170][180] [165] [167] "
585 print" [165] [167] [170][180] [165] [167] "
590 print" [167] [170][185][185][185][185][185][185][185][185][186][204][185][185][185][185][185][185][185][185][165] [165]"
595 print" [200] [167] [170][180] [165] [199]"
600 print" [217] [212] [170][180] [217] [199]"
605 print" [217] [212] [170][180] [217] [199]"
610 print" [199] [212] [170][180] [217] [200]"
615 print" [212] [212] [170][180] [217] [217]"
620 print" [212] [165] [170][180] [167] [217]"
625 print" [180] [165] [170][180] [167] [167]"
630 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1000 gosub1500:sys24988: ifpeek(28676)=130thens=2
1010 ifpeek(28676)=2thens=1
1020 ifpeek(28683)=1thenpu(s)=pu(s)+1
1030 ifpeek(28683)=255thens=3-s:pu(s)=pu(s)+1
1035 ifpu(s)=4andpu(3-s)<3thengoto1100
1060 ifpu(3-s)=4thenpu(s)=pu(s)-1:pu(3-s)=pu(3-s)-1
1070 ifpu(s)=5thengoto1100
1090 goto1000
1100 pu(1)=0:pu(2)=0:poke28673+au,0:poke28673+3-au,1:au=3-au
1105 sp(s,sa)=sp(s,sa)+1
1110 ifsp(s,sa)<6orsp(s,sa)<sp(3-s,sa)+2andsp(s,sa)>sp(3-s,sa)-2thengoto1000
1115 sa=sa+1:sa(s)=sa(s)+1
1120 ifsa(s)=2orsa(3-s)=2thengoto2000
1125 goto1000
1500 poke28683,0:print"[144]";:fora=1to2:printna$(a);:poke211,20:syscs:forb=1to3
1505 pu$(a)=chr$(18)+mid$(a$,pu(a)*2+1,2)
1515 ifsa>=bthenprint""sp(a,b);
1520 next:poke211,33:syscs:printpu$(a);:poke211,36:syscs:ifau=athenprint"[209]"
1525 ifau<>athenprint" "
1530 poke214,3:syscs:next:return
2000 pokesi+5,0:pokesi+6,240:pokesi+24,15:sa=sa-1:gosub1500
2010 fora=0to25:pokesi+1,mu(a,0):pokesi,mu(a,1):d=mu(a,2):pokesi+4,33
2020 forb=0tod:next:pokesi+4,0:next
2030 fora=1to2:ifsa(a)<2thengoto2100
2040 fora1=0to10:poke211,0:poke214,a*2-1:syscs:printna$(a):forb=0to300:next
2050 poke211,0:poke214,a*2-1:syscs:printmid$(na$(a),2):forb=0to300:next:next
2100 next:sa=1:fora=1to2:forb=1to3:sp(a,b)=0:next:next:sa(1)=0:sa(2)=0
2110 pu(1)=0:pu(2)=0
2150 poke211,0:poke214,23:syscs:print"wollen sie noch einmal spielen ?
2160 [151]198,0:[146]198,1:[161]in$:[139]in$[178]"j"[167][137]400
2170 [137]2170
49985 :
49990 [143] *** laufender spieler 1 ***
49995 :
50000 [131]0,3,252,0,3,212,0,3,84,0,3,84,0,10,128,0,42,128,0,42,128,0,42,128
50010 [131]0,42,168,0,42,170,0,21,64,0,21,80,0,84,80,0,80,20,53,80,84,53,64,80
50020 [131]48,0,208,0,0,48,0,0,12,0,0,0,0,0,0,0
50030 :
50035 [143] *** stehender spieler 1 ***
50040 :
50050 [131]0,3,252,0,3,212,0,3,84,0,3,84,0,10,128,0,42,128,0,42,128,0,42,128
50060 [131]0,42,168,0,42,170,0,21,64,0,21,64,0,21,64,0,20,80,0,21,80,0,85,64
50070 [131]0,208,64,0,49,64,0,15,224,0,0,0,0,0,0,0
50080 :
50085 [143] *** laufender spieler 2 ***
50090 :
50100 [131]63,192,0,23,192,0,21,192,0,21,192,0,2,160,0,2,168,0,2,168,0,2,168,0
50110 [131]42,168,0,170,168,0,1,84,0,5,84,0,5,21,0,20,5,0,21,5,92,5,1,92,7,0,12
50120 [131]12,0,0,48,0,0,0,0,0,0,0,0,0
50130 :
50135 [143] *** stehender spieler 2 ***
50140 :
50150 [131]63,192,0,23,192,0,21,192,0,21,192,0,2,160,0,2,160,0,2,168,0,2,168,0
50160 [131]42,168,0,170,168,0,1,84,0,1,84,0,1,84,0,5,20,0,5,84,0,1,85,0,1,71,0
50170 [131]1,76,0,15,240,0,0,0,0,0,0,0,0
50180 :
50185 [143] *** schlaeger ***
50190 :
50200 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,9,0,0,17
50210 [131]0,0,17,0,0,17,0,0,17,0,0,18,0,0,28,0,0,16,0,0,32,0,0,32,0,0,64
50220 [131]0,0,64,0,0,0,0,0,0,0
50230 :
50235 [143] *** schlaeger ***
50240 :
50250 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,0,144,0,0,136,0,0,136,0,0
50260 [131]136,0,0,136,0,0,72,0,0,56,0,0,8,0,0,8,0,0,4,0,0,4,0,0
50270 [131]2,0,0,2,0,0,0,0,0,0
50280 :
50285 [143] *** ball ***
50290 :
50300 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0
50310 [131]0,60,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
59985 [143]
59990 [143] *** datas fuer m-code ***
59995 [143]
60000 [131]169,224,141,2,220,169,1,141,8,112,173,0,220,168,201,127,240,27,206
60001 [131]0,112,173,0,112,208,19,162,32,173,248,7,201,32,208,2,162,33,142,248
60002 [131]7,169,8,141,0,112,152,41,1,208,3,32,4,97,152,41,2,208,3,32,18,97
60003 [131]152,41,4,208,3,32,32,97,152,41,8,208,3,32,46,97,173,1,220,168,201
60004 [131]255,240,27,206,1,112,173,1,112,208,19,162,34,173,249,7,201,34,208
60005 [131]2,162,35,142,249,7,169,8,141,1,112,152,41,1,208,3,32,60,97,152,41
60006 [131]2,208,3,32,74,97,152,41,4,208,3,32,88,97,152,41,8,208,3,32,122,97
60007 [131]162,9,160,16,136,208,253,202,208,250,32,1,99,206,8,112,240,3,76,10
60008 [131]96,238,12,112,174,12,112,224,3,208,5,162,0,142,12,112,189,255,96
60009 [131]141,8,112,32,125,99,169,0,141,30,208,32,1,99,32,166,98,32,1,99,173
60010 [131]11,112,240,8,169,255,141,2,220,169,0,96,32,202,99,76,10,96,0,0,0
60011 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,1,1,2
60012 [131]0,0,173,1,208,201,80,240,6,206,1,208,206,5,208,96,173,1,208,201,208
60013 [131]240,6,238,1,208,238,5,208,96,173,0,208,201,24,240,6,206,0,208,206
60014 [131]4,208,96,173,0,208,201,162,240,6,238,0,208,238,4,208,96,173,3,208
60015 [131]201,80,240,6,206,3,208,206,7,208,96,173,3,208,201,208,240,6,238,3
60016 [131]208,238,7,208,96,173,2,208,201,184,240,26,206,2,208,16,8,173,16,208
60017 [131]41,253,141,16,208,206,6,208,16,8,173,16,208,41,247,141,16,208,96
60018 [131]173,2,208,201,64,240,26,238,2,208,48,8,173,16,208,9,2,141,16,208
60019 [131]238,6,208,48,8,173,16,208,9,8,141,16,208,96,169,15,141,21,208,169
60020 [131]15,141,24,212,169,192,141,1,208,141,5,208,169,96,141,3,208,141,7
60021 [131]208,169,224,141,2,220,169,10,141,16,208,169,24,141,0,208,169,32,141
60022 [131]4,208,169,64,141,2,208,169,55,141,6,208,173,0,220,168,41,1,208,10
60023 [131]173,1,208,201,168,240,3,32,11,97,152,41,2,208,3,32,18,97,152,41,16
60024 [131]208,8,173,2,112,240,3,76,47,98,173,1,220,168,41,1,208,3,32,60,97
60025 [131]152,41,2,208,10,173,3,208,201,120,240,3,32,81,97,152,41,16,208,8
60026 [131]173,3,112,240,3,76,91,98,162,16,160,255,136,208,253,202,208,250,76
60027 [131]212,97,173,0,208,24,105,24,141,8,208,173,1,208,141,9,208,169,31,141
60028 [131]21,208,173,16,208,41,239,141,16,208,169,2,141,4,112,169,129,141,5
60029 [131]112,32,135,98,76,0,96,173,2,208,56,233,26,141,8,208,173,3,208,141
60030 [131]9,208,169,31,141,21,208,173,16,208,9,16,141,16,208,169,130,141,4
60031 [131]112,169,1,141,5,112,32,135,98,76,0,96,169,5,141,1,212,169,0,141,5
60032 [131]212,169,247,141,6,212,169,129,141,4,212,169,128,141,4,212,169,0,141
60033 [131]13,112,96,173,4,112,48,23,173,8,208,24,109,4,112,141,8,208,208,8
60034 [131]173,16,208,9,16,141,16,208,76,222,98,56,233,128,141,6,112,173,8,208
60035 [131]56,237,6,112,141,8,208,201,254,208,8,173,16,208,41,239,141,16,208
60036 [131]173,5,112,48,13,173,9,208,24,109,5,112,141,9,208,76,1,99,56,233,128
60037 [131]141,7,112,173,9,208,56,237,7,112,141,9,208,96,173,30,208,168,201
60038 [131]20,208,3,76,21,99,152,201,24,208,3,76,73,99,96,169,2,141,4,112,173
60039 [131]30,208,32,3,100,173,0,220,168,201,127,240,27,152,41,9,208,6,169,129
60040 [131]141,5,112,96,152,41,10,208,6,169,1,141,5,112,96,152,41,8,208,5,169
60041 [131]0,141,5,112,96,169,130,141,4,112,173,30,208,32,3,100,173,1,220,168
60042 [131]201,255,240,27,152,41,5,208,6,169,129,141,5,112,96,152,41,6,208,6
60043 [131]169,1,141,5,112,96,152,41,4,208,5,169,0,141,5,112,96,173,4,112,48
60044 [131]11,173,8,208,201,184,208,3,32,152,99,96,173,8,208,201,160,208,3,32
60045 [131]152,99,96,141,5,212,169,243,141,6,212,169,10,141,1,212,169,129,141
60046 [131]4,212,169,128,141,4,212,169,255,141,13,112,173,9,208,201,100,176
60047 [131]5,169,255,141,11,112,201,215,48,32,169,255,141,11,112,96,173,9,208
60048 [131]201,70,240,33,201,235,240,29,173,16,208,41,16,208,7,173,8,208,201
60049 [131]4,144,15,173,16,208,41,16,240,7,173,8,208,201,80,240,1,96,173,13
60050 [131]112,208,6,169,255,141,11,112,96,169,1,141,11,112,96,32,135,98,32
60051 [131]166,98,96